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' CHAIN to eresier Breese 


MODULE BASSCHAIN ' 
! File: BASCHAIN.B32 Edit: 


( 
te = *1-005' 
BEGIN 


. 
ASRS ELIS I TITTIES ICICI TTI TIT i tii Litititititiitiititt 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i# DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ade THE 


* 
& 
oe 
y 
® 
® 
® 
® 
ie INCL OF TWARE * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
« 
2 
J 
® 
* 
at 
ao 
a 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. comPOhat hie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONS Bl 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


RAO RARARE RHEE REARAERERAAAHHERHETAKHEAT HAA EAE eRReeeeeeeeeeeeteeeeeeeee 
' 


‘ee 
FACILITY: VAX=11 BASIC Miscellaneous 


ABSTRACT: 


This module causes the current program to end and another 
program to be run in its place. 


} 

: 

: 
ENVIRONMENT: VAX-11 User Mode 

! AUTHOR: John Sauter, CREATION DATE: 13-NOV-1979 

MODIFIED BY: 

i 1-001 = Original. JBS 15-NOV-1979 

: 1-002 - Make the entry point global. JBS 28-NOV-1979 

! 1-005 = CHAIN to a non-existent file should generate an error, 

; not just return to DCL. PLL 17-Nov-1981 3 

: 1-004 = If LIBSRUN_PROGRAM returns an error, signal this error 

} to the user instead of the Basic message ‘not implemented.‘ 
} 


PLL 16-Jun-1982 . 
1-005 = signal ILLFILNAM when SPARSE fails, not FATSYSIO. MDL 27-Apr-1983 
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VeaSep-1986 W1i5e:es — EBASRTLoSRETBASCHAIN- BSS: 1 
' 


SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 
; NONE 
TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSCHAIN : NOVALUE; 


End this program and start another 
1! 


i INCLUDE FILES: 
REQUIRE "RTLIN:RTLPSECT’; 
LIBRARY *RTLSTARLE'; 
MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
PSECTS: 
ECLARE_PSECTS (BAS); 
OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


Macros for defining PSECTs 


Declare psects for BAS$ facility 


EXTERNAL ROUTINE 

BASSSSIGNAL : NOVALUE, 
BASS$STOP : NOVALUE, 
LIBSSTOP : NOVALUE, 
LIBSRUN_PROGRAM; 


Signal an error 

Signal a fatal BASIC error 
Signal a fatal error 

Run a pregram 


'¢ 
: The following are the error codes used in this module. 


EXTERNAL LITERAL 
BA 


SSK_ILLFILNAM : UNSIGNED (8), ' Illegal File Name 
BASSK_FATSYSIO. : UNSIGNED (8), : Fatal System 1/0 error 
BASSK_CANFINFIC : UNSIGNED (8), ! Can't find file or account 


Page 


2 
(2) 


‘BASSCHAIN 


: 113 
; 116 


0307 3 


BASSK_NOTIMP : UNSIGNED (8); 


1§-s60-1986 90:05:06 yatett Ls 


' Not implemented 


ESBAScHAIN- B50; 1 


eng 


2 
‘RASSeMAIN 1B-Se0-1984 00:05:06 YAKeIt BLisg=82 v4.00742 
| ! 


3 116 os 1 GLOBAL ROUTINE BASSCHAIN ( ! CHAIN to another program 
is 09 1 PGM_NAME, ' Name of greeres to be RUN 
\3 118 i? 1 LINE_NO ! Line number to start program at 
'3 119 1 ! ) : NOVACUE = 

; i ; ig 1 '44 

8 : ¢ 13 ; } FUNCTIONAL DESCRIPTION: 

; } ¢ 1 : Stop running this program and start running another. 

; 126 0 18 | CALLING SEQUENCE: 

; ; : 0 y ; ! CALL BASSCHAIN (PGM_NAME.rt.dx, LINE_NO.rl.r) 

; 130 0 é ! FORMAL PARAMETERS: 

.% § 0226 1: PGM_NAME.rt.dx The name of the program to be run in place of this one. 
3 ; 0986 ! LINE_NO.rl.r The Line number to start the program at 

; 135 0937 { IMPLICIT INPUTS: 

1B 2. BB lfc = 

: 139 0931 1 ' IMPLICIT OUTPUTS: 

3; 140 0 3 1! 

a ae Bet | ple 

; 128 0235 1! ROUTINE VALUE: 

3. 6144 o¢36 1 ! COMPLETION CODES: 

: 145 Os¢ 1! 

cece oe ijoom 

; 148 0240 i SIDE EFFECTS: 

; 150 OSe$ 1/ Either signals or never returns to its caller. 

s . OSe 0245 1! 

: 48 $5e8 

> 154 0246 2 BEGIN 

WR BR wen 

3 157 0249 FAB_BLOCK : $FAB_DECL, 

; 158 0250 2 FAB: REF $FAB_DECL 

: 159 0251 NAM_BLOCK : SNAM_DECL 

3 160 32 EXP"NAME : BLOCK” CNAMSC_MAXRSS, BYTE), 

; 16 9$27 STATUS; 

; 188 0255 BIND 

3; 6164 0256 DEFAULT_NAME = UPLIT ('*.EXE"); 

7B Btw 

; 167 0959 PGM_NAME : REF BLOCK CO, BYTE]; 

: 169 61 BUILTIN 

: 170 6¢ NULLPARAMETER; 

3. «171 6 

3 172 0264 !¢ 


“Sep-19 BASRTL. BASCHAIN.B32;1 


ine number feature is not implemented, so give an error 


_BASSCHAIN 16-se0-1984 99:93:09 acne attend V4.0-74 Page 
3 it is specified. 


The 
if 


| 


If ( NOT NULLPARAMETER (2)) THEN BASSSSTOP (BASSK_NOTIMP); 


‘+ 

! If the user tries to CHAIN to a non-existent program, this should be 
! returned as ERR=5, ‘can't find file ...°. Since LIB$RUN_PROGRAM will 
! return to DCL level if an error other than invalid argument occurs, 
try to determine if the file exists before LIBSRUN_PROGRAM is called. 


POINTE 
LENGTH 


CSA R); 
FAS$B_FNSJ = .PGM"NAME CDSCSW_ J 
FABSL_DNA] = DEFAOLT_NAME; 
FAB$B_DNS) = 5; 


SNAM_INIT (NAM = NAM_BLOCK); 
NAM_BLOCK CNAMSL_RSAJ = NAM_BLOCK CNAMSL_ESA] 
NAM-BLOCK CNAMSB_RSS) = NAM_BLOCK CNAM$B_ESSJ 


FAB CFABSL_NAM] = NAM_BLOCK; 


EXP_NAME ; 
NAMSC_MAXRSS; 


'¢ 
! Do not use SOPEN to look ror the file because if the protection code 
} is execute only, a privilege violation will occur. 


STATUS = SPARSE (FAB = .FAB); 
IF (NOT .STATUS) THEN BASS$STOP (BAS$K_ILLFILNAM); 


SGOSSSOOCOCSCOCOCOSCOSOOSOOCOSOSOOSSCOOSOSOSO OOOO OCOOOOCOOO OOOO OOOO OOOOOoOOOO 
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2 
206 
207 STATUS = S$SEARCH (FAB = .FAB); 
Soe esata) te »STATUS OF 
at CRMS$_NORMAL }: 
11 . ! file exists 
2 CRMS$_FNF): 
21 BASS$S$SIGNAL (BAS$K_CANF INFIL); ! file not found ’ 
$i¢ COTHERWISE): 
15 BASSS$STOP (BASSK_FATSYSIO_); ! random RMS error 
08 TES; 
1 
18 10 
\} 1 2 STATUS = LIBSRUN_PROGRAM (.PGM_NAME); 
21 13 i LIBSRUN PROGRAM should never return. If it does, we have an 
$6 19 } error of some kind. 
$¢ 1g LIBSSTOP (.STATUS); 
$53 18 END; ' end of BASS$CHAIN 


-TITLE BASSCHAIN 


N 
5" 1enSep-1986 11:54:68 EBASRTL“SRESBASCHAIN.039; 1 
| LIDENT \1=005\ 

.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
00 00 00 45 58 45 2E 2A 00000 P.AAA: .ASCII \#.EXE\<O><0><0> 


DEF AULT_NAME = AAA 
.EXTRN IGNAL, BASS$$STOP 
LIBSRUN_PROGRAM 
LNAM 


| -EXTRN BASSK_CANF I 
-EXTRN BASSK-NOTIM 


YSSPARSE 
~EXTRN SYSSSEARCH 


O1FC 00000 .E::7RY BASSCHAIN, Save R2,R3,R4,R5,R6,R7,RB 
58 000000006 00 9 90002 MOVAB BASS$SSTOP. RB 
5E FESO CE 9€ 0000 MOVAB -432(SP), SP 
02 6C 91 O000E CMPB Ss AP), #2 
OC 1F 00011 BLSSU 18 
08 AC 05 00013 TSTL  8(AP) 
07 13 00016 BEQL ~=sés«édTS$ 
7E 006 8F 9A 0001 MOVZBL #BASS$K_NOTIMP, (SP) 
68 01 FB OOOIC CALLS #1, BASS$SSTOP 
56 BO AD YE OOOIF 1S: MOVAB FAB_BLOCK, FAB 
0050 =«&F 00 6E 00 2c 90025 MOVCS #0,7(SP), #0, #80, (FAB) 
£6 5003 8F B0 00028 MOVW #20483, (FAB) 
16 Ab 02 90 00030 MOVB g. 2 (FAB) 
1F Ab 02 90 00034 MOVB #2, 31(FAB) 
57 04 AC 00 00038 MOVL §§ PGM_NAME, R7 
2C Ab 04 A? DO 0003C MOVL  4(R7), 44(FAB) 
4 Ab 67 90 00041 MOVB = (R7), 52(FAB) 
30 Ab BO AF 9E 00045 MOVAB DEFAU T_NAME, 48(FAB) 
35 Ab 05 90 0004A MOVB #5, 53(F 
0060 &8F 00 6E 00 2¢ OO04E MOVCS #0, (SP), #0, #96, S$RMS_PTR 
FFSO CD 005 
FFSO 86 CD 6002 =F 80 00058 MOVW #24578, SRMS_PTR 
50 6 i 0005F MOVAB EXP_NAME, RO 
FFSC CD 0 D 90062 MOVL RO,”NAM_BLOCK+12 
FF54 «CD 50 DO 0006 MOVL RO, NAM“BLOCK+4 
FFSA CD 01 BE 0006C MNEGB #1, NAM~BLOCK+10 
FF52 «CD 01 8€ 00071 MNEGB #1, NAMBLOCK+2 
28 «Ab FFS5O cp E 00076 MOVAB NAM_BLOCK, 40(FAB) 
6 DD 0007C PUSHL F 
000000006 9 gi F O07E CALLS #1, SYSSPARSE 
9 DO 0008 MOVL RO, STATUS 
0 § f 0088 BLBS STATUS, 2$ 
3 006 8F 9A 0008B MOVZBL #BASSK ILLFILNAM, -(SP) 
6 01 FB OO008F CALLS #1, BASS$$STOP 
56 DD 00092 2$ PUSHL FA 
000000006 00 gi FB 0094 CALLS #1, SYSS$SEARCH 
52 0 pO 00098 MOVL RO, STATUS 
00010001 FF 52 D1 O09 CMPL STATUS, #65537 
19 3 OO0A BEQL 
00018292 8F 52 D1 OO0A7 CMPL STATUS, #98962 
0D 12 OOOAE BNEQ $ 
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Sep-1984 BASRTL.SRC JBASCHAIN.B32;1 (3) 
7 00G 8F 9A 00080 MOVZBL sOASSK com int it. -(SP) ; 0305 
000000006 66 J 4 ita a 4 . BASSSSIGNA ; 
7 006 8F 9A O000BD 3S: MOVZBL #OASSK FATSYSIO_, (SP) + 0307 
6 1 FB 000C1 ALLS BASS$STOP : 
7 DD O00C4 4$ PUSHL 3; 0311 
000000006 99 4 FB Q00C6 CALLS Tht at ee PROGRAM : 
0 00 000CD MOVL RO: Tus 3 
52 0D 0000 PUSHL 3 AT us” ; 0316 
000000006 00 01 FB 0000 CALLS » LIBSSTOP : 
04 000D RET ; 0318 
(3 Routine Size: 216 bytes, Routine Base: _BASSCODE + 0008 
is 27 3384 1 
; 228 0320 1 END ! end of module BASSCHAIN 
3 $$3 0321 1 
3 0 0322 0 ELUDOM 
| 
ls PSECT SUMMARY 
r Name Bytes Attributes 
a _BASSCODE 226 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Bee ie re ee eo ee Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
E _$255$DUA28: (SYSLIBISTARLET.L32;1 9776 61 0 581 00:01.0 
ls COMMAND QUALIFIERS 
E BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASCHAIN/OBJ=0BJ$:BASCHAIN MSRC$:BASCHAIN/UPDATE =(ENH$:BASCHAIN) 
; Size: 218 code + 8 data bytes 
| 3 Run Time: :07.3 
t Elapsed Time: 00:17.2 
13 Lines/CPU Min: 639 
3 Lexemes/CPU-Min: 2 $36 
E Memory Used: 101 pages 


| ASSEMAIE 
's Compilation Complete 


1h-sep-1986 00:05:06 
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